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APPENDIX; MONARCH VJRITTEN IN PAL III 


ABSTRACT 


Criteria for selection of a mini- computer for use as a core resident 
acquisition syston are developed for the ODU Mobile Air Pollution Laboratory, 
A comprehensive data acquisition program named MONARCH has been instituted in 
a DEC-0/E-8K 12-bit computer. Up to 32 analog voltage inputs are scanned 
sequentially f converted to BCD, and then to actual numbers. As many as 16 
external devices (valves or any other two-state device) are controlled inde- 
pendently. MONARCH is written as a foreground-background program, controlled 
by «ui external clock which interrupts once per minute. Transducer voltages 
are averaged over user specified time intervals and, upon completion of any 
desired time sequence, outputted are: day, hour, minute, second; state of 
external valvesf average value of each analogue voltage (E Format); as well 
as standard deviations of these values. Output is compatible with any 
serially addressed media. 



' INTRODUCTION 

Bjc need for developraent of a conputer based data acquisition and control 
system arose during the evolution of a comprehensive Mobile Air Pollution 
Laboratory at Old Dominion University, This laboratory, housed in a mobile 
trailer (see figure 1), monitors at four different heights the following 
environmental parameters: wind speed and direction; temperature; concentrations 

of ozone (O3) ; nitrogen oxides (NO, NOg, NOjj) ; carbon monoxide (CO); total 
hydrocarbons (THC) ; and sulfur compounds (H2S, SO2). Additionally measurements 
at one height are: relative humidity; insolation; atmospheric pressure; and the 

b-scattering coefficient (visibility) . All of these analog voltage instruments 
were initially measured sequentially by a multipoint recorder v/hich produced 
14,000 data points per level per day. Transcription and averaging of this data 
base required more effort than maintenance of the instruments during the course 
of month-long field experiments. It soon became obvious that a computer based 
data acquisition and control system must be installed to provide near real time 
analysis of the environmental parameters and to provide convenient expansion and 
modification via software when additional instrumentation became available. 

This system was named i-iONAPvCH, 

A detailed analysis of present and future requirements for r.OMARCH suggested 
the following hardware configuration, 

1. Data acquisition, A mixture of analog voltage, bridges, and digital BCD 
input channels must be av^Lilable. The software must select order and frequency 
of scanning for a high precision low-speed A/D, All inputs to the A/D are set 
in the ramge -10,00 to +10.00 volts, so that each input slot has its own amplifier 
to change the incoming voltages to this r^mge. Cost constraints prohibited use 
of a programmable gain anplificr. 
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2* All data averaging is done in so£ti#are. 

3* Master Control. A crystal controlled clock provides interrupts once 
per ndnute. Software design is based upon counting clock interrupts, ifhen 
read, the clock provides Julian date, hour, minute, and second in three 12-bit 
BCD words . 

4. Control Functions. Cor.puter must initiate all scans of instruments, 
read the clock, and be able to control external valves for level shifting as 
well as inserting scrubbers, span and zero gases at appropriate times into air 
pollution instruments. 

5. Input/Output. The entire system should work in a conversional mode so 
that field personnel may control its actions. Output medium should be versatile 
so that changes from paper tape to cassette tape or to tele-communications is 
possible. 

Criteria v^ere established for selection of a computer for MOHARCH. Realizing 
that none of the investigators had ever dealt with minicemputers or assembly 
languages, one of the major criteria for selection was the existence of clearly 
worded comprehensible software documentation. Other criteria v;ere: ease of 

interfacing, possibility of future expansion, cost, availability of service and 
software personnel, and our in-house hardware capsibility. The final selection of 
the minicorputer weis a PDP 8/E with BK 12-bit word core memory. 

HARDWARE CONFIGURATION 

A block diagram of the hardware system is shown in figure 2. Ail I/O is 
hamdled by a 33ASR teletype. The clock was built in-house and interfaced to the 
PDP8/E. The clock (device code 13) interrupts once per minute aitd provides day 
(000-365) , hour (00-24) , minute and second (00-60) in three 12-bit words. It 
can be reset manually to 000‘^10^00"'00®. 
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The valve control imit (device code 15) accepts from the PDP8/E one 12> 
hit word. Each bit (0 or 1) controls the state of one valve system. Once a 
valve is set via software command it maintains that state until it is reset. 

This device is expandable to 36 valve states. 

Since MONARCH can control measurements at four levels (15, 25, 50, 75 feet) 
three of the valve states are used (figure 3). Four glass and teflon manifolds 
are brought into the trailer where each molecular instrument is attaclied to each 
manifold via 1/4" I.D. teflon tubing. Switching is accomplished by valves A, B, 
C which are solenoid activated teflon 3>way divert valves. This arrongenent 
leaves eight unused states for cycling of scrubbers. If zero air or span gases 
are desired, they are easily incorporated with these additional valve states. 

Device 14 is the A/D scanner and input level shifters for 14 input data 
channels. It is expandable up to 18 additional analog channels. Channel 
selection is via transfer of a positive binary number from the accumulator to 
the decoder where the appropriate channel is selected and its mercury relay is 
closed and daca conversion begins. Upon finish of data conversion this device 
interrupts and one 12-bit BCD number can be read by the computer. Thus this 
device both accepts and sends information. If digital information is available 
from any instrument, they can be assigned their own device codes as needed. 

DATA ACQUISITION SOFT57ARE 

MONARCH operates with the interrupt enabled, and a background program which 
endlessly rotates one bit through the link and accumulator of the PDP8/E. When 
the indicator selector switcit is in the AC setting, one light moves across the 
display at a rate and direction dependent upon the switch registers (1). Any 
similar program can be substituted. 
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An initial start up sequence, START, operates with interrupt off and a 
dialogue takes place between the operator and MONARCH (figure 4). This sequence 
Bets the number of levels, instruments, samples per instxrument per minute, the 
length of time MONARCH spends per level and time periods between zero and span 
cycles. At the end of START all software counters are initialized. MONARCH 
gives massages to the operator, sets the valves and then halts. 

MONARCH operates using a Digital Equipment Corporation 23-bit floating 
point package (FPP) (2) » series of teletype service routines, and a BCD-binary 
conversion subroutine. Use of the fPP enables accuracy of six significant 
digits and greatly enahances the ease of arithmetic and data manipulation as 
well as I/O operations. Figures 5 through 10 give the flow diagraro for MOMARGH. 
A listing of MONARCH in PAL III assembly language constitutes Appendix A. 

After the operator has interacted with MONARCH and supplied the required 
information, the computer halts. Upon pressing the CONTINUE switch, all flags 
are cleared, the interrupt is turned on and the background program is entered. 

At this point we will assume four levels, 14 instruments, five rainutes per level 
and 100 samples per instrument per minute. At the first clock interrupt (Zeroth 
minute) ^50NARCH goes to location 0000 and executes the instruction stored in 
location 0001 which is an effective jump to the Service routine* The Service 
routine stores the current value of the accumulator and link. Location 0000 
has stored in it the next instruction that was to be performed before interrupt 
occurred. The SERVE routine is a skip chain which tests to see which device 
needs attention. At this moment the clock is determined and a jump to CLKSER 
occurs. Since this is the first clock interrupt, the clock is not read. Several 
counters are incremented (counted up to zero) , and the scanner is instructed to 
start conversion on instrument 14, Tlven the program junps to EXIT where the 
accumulator and link are restored, and progr^un control is returned to background. 
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The next interrupt is the scanner signalling that instrument 14 has finished 
conversion. A jump to serve occurs where the scanner is detected and a jump to 

i 

SCNSER happens. SCNSER cle.'trs the scanner interrupt flag, sends one 12-bit BCD 
word to the accumulator. Since the A/D has been designed to accept -10 to -flO 
volt signals, it is necessary to ermine the algebraic sign of the data. This 
is implemented in hardware, if the least significant digit (LSD) is 0. then the 
number is negative. If 1. it is positive. This means valid outputs from the A/D 
are even numbers (negative ) k odd numbers (positive) over the range -998 to +999, 
Over range is signalled by all bits zero and must be differentiated from real zero 
by software if needed. 

SCNSER checks the LSD and converts BCD to bin^ury via a service routine. 
BCDBIN. The floating point package (FPP) is entered and the one word binary 
data is converted to floating point (3 words). This data is level shifted to all 
positive (range 0 to 2000) and added indirectly to the 14th floating point buffer 
location. The Buffer was set to zero in START. Next the scanner is sent instruc- 
tions to process instrument 13 and control is passed to background. 

This process continues until SCNSER detects the fact that each instrument has 
been read the specified number of times (100. in this example). At that point 
the scanner is not sent a start conversion signal and program returns to back- 
ground to wait for the second clock interrupt. 

This procedure (clock interrupt, read sequentially each instrument 100 times, 
wait until clock Interrupts) continues until the fourth clock interrupt. At that 
time a valve in the NOj^ instrument is energized and the same procedure continues. 

At the fifth clock interrupt a new sequence is initialed. First, the valve 
state (level) is changed. The clock is now read (BCD 3 words). The clock v;ords 
are masked and converted to binary, and then to 12-bit words corresponding to 
units of seconds, minutes, days, tens of seconds, minutes, days, and hundreds 
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of days. Next the state of the NO^ valve is changed* Data output is now indi~ 
cated via the routine DTAOUT, An example output is shown in table 1. Extensive 
use is made of the FPP and teletype routines for output and format control (may be 
FORTRAN E or F format). Output is sequentially printed on three TTY lines; Line 
Is DAY, HOUR, MIN., SEC., VALVE LBWL CODE. Line 2s DATA FROM lUSTRUMENT ONE 
TO SEVEN. Line 3; DATA FROM INSTRUMENT EIGHT TO FOURTEEN. Each outputted 
value is a decimal number and each are separated by blanks except carriage return 
line feed at the end of lines. The values are the arithmetic mean of the voltages 
of each instrument averaged over the nunber of times it was read. DTAOUT then 
zeroes all the data storage buffer and returns to background via EXIT, Since the 
output is to TTY paper tape, a maximum of 600 characters may be punched before the 
next interrupt occurs, DTAOUT operates with the interrupt off, so that no con- 
fusion is possible. 

Included in the SERVE Skip Chedn are two other service routines, TTYSER 
gives a warning to the operator if the TTY keyboard is struck. This can be used 
to input and modify future states of the program, ERROR is a routine at the 
bottca of the skip chain which can only be entered if interrupt occurs when no 
real device has caused such. This routine gives an error message and returns to 
background. It is of importance in cases where the electromagnetic environment 
is noisy. 

FUTURE EXPANSION PLANS 

Even though MONARCH presently resides in an 8K machine, it is entirely 
contained in Field <{) (Lower 4K memory). The upper 4K memory is not used. Thus, 
MONARCT can be used with only minor modification in any 4K PDP 8 system. Since 
the instruction set utilized is shared by the PDP/5 system, MONARCH will work in 
these older machines if the interrupt service routine is modified. If mass 
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storage devices are incorporated for 1/0 operations, then the Tl'Y service routines 
and FPP FOUT function must be modified. 

The present version of INARCH is fixed to a previously existing four-level 
value structure shcA/n in figure 3. If the number of external levels are 
increased, additional value routines are necessary. Decreasing from four levels 
requires no change. If zero and span cycles are desired, they nay be inserted 
in the ZERO routine or they nay be assigned levels five and six and thus will 
automatically be cycled through in the sane time intervals as the first four 
levels. 

Many of the instructions used in the floating point package are not currently 
used. Additional storage nay be obtained by deleting these. Examples would be 
the floating trig and log functions. One modification that would be desirable^ 
from a data euialysis viewpoint, would be the incorporation of statistical variances 
of the quantities being measured. This could be implemented without greatly 
increasing data storage requirements (it would double - 14 x 3 x 2 » 84 - 12 bit 
words). Presently, the data storage buffer has stored in each location (3 word) 
the sun of the data from each instrument over the sample interval. Using the 
FSQU instruction emd doubling the size of the buffer, one could have stored 

1? 

and 

t; 

X2 

i 

where Xi is the measurement, N is the number of times the quantity is 
measured. At output, it is a simple natter to output (already done) 


E 

i»l 


E 

i-l 
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<x> « i I; xi 

and also 

0^ - <X2> - <X>2 » i (E*<i))^ 

The varicmces have physical interpretations for meteorological auantities 
(wind speed, temperature, etc.) which are related to turbulence. Variances should 
be known so that estimates of the reliability and validity of the data may be 
obtained. 

If reliable calibration equations are available, the floating point package 
can be used to provide output in engineering units directly. Although this nay 
appear to be a desired goal in design of MONARai, it can easily produce invalid 
results if calibration of any instrument changes. As a check against this 
happening for the computer hardware, it is suggested that at least one data port 
be used to monitor a fixed voltage (Standard cell). 
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Table 1. Example of MONARCH output 


Line 

1 

Day 

Hour 

Min 

Sec 

Valve 

State 


Line 

2 

Inst #1 

2 

3 

^ 4 

5 

6 

7 

Line 

3 

8 

9 

10 

11 

12 

13 

14 


•*■ 401.0 
•*• 75. 4 
•► 75.3 

♦ 14.0 

♦ 75.3 

♦ 75.3 

+ 53.0 
+ 75.3 
+ 58.9 

+ 0.0 

+ 75.2 

+ 69.7 

+ 5 . 

+ 75.3 
♦ 64.7 

+ 75.3 
+ 67.0 

+ 75.3 
+ 1874.9 

•*• 401.0 

■► 76.9 

•► 78.8 

♦ 14.0 
+ 78.6 
♦ 77.3 

+ 58.0 
+ 77.2 
+ 62 . 1 

+ 0.0 

+ 78.8 

+ 73.2 

+ 4 . 

+ 77.3 
+ 69.0 

+ 78.8 
+ 70.2 

+ 77.3 
♦ 1872.6 

1.0 

■► 77.5 

■► 77.7 

♦ 15.0 
♦ 77.4 

♦ 77.6 

+ 3.0 
+ 77.5 
+ 60.8 

+ 0.0 
+ 77.6 
+ 71.9 

+2 . 

+ 77.6 
+ 69.1 

+ 77.7 
+ 69.3 

+ 77.6 
+ 1872.9 

♦40 1 * 0 
♦ 74.7 
♦ 76.2 

♦ 15.0 
+ 76.0 

♦ 74.9 

+ 8.0 

+ 74.9 
+ 59.4 

+ 0.0 
+ 76. 1 
+ 69.7 

+ 0 . 

+ 74.9 
+ 66.7 

+ 76.2 
+ 67 . 1 

+ 75.0 
+ 1871.6 

♦ 401 .0 
+ 77.2 
+7 9.0 

+ 15.0 
+ 75.6 
+ 77.6 

+ 13.0 
+ 77.5 
+ 62.3 

+ 0.0 
+ 79.0 
+ 73.0 

+ 5 . 

+ 77.6 
+ 69.8 

+ 79.0 
+ 70 . 1 . 

+ 77 . 6 
+ 1869.1 

♦ 401 .0 
♦ 73.4 
♦ 76.1 

+ 1 5.0 
+ 75.9 
+ 73.7 

+ 18.0 
+ 73.6 
+ 59.5 

+ 0.0 
+ 76. 1 
+ 69.5 

+ 4 . 

+ 73.7 
+ 65 . 1 

+ 76 . 1 
+ 66.6 

+ 73.8 

+ 1868.8 

♦ 401 .0 
♦ 75.8 
♦ 79.6 

+ 15.0 
+ 79.4 
♦ 76.0 

+ 23.0 
+ 76.0 
+ 62.9 

+ 0.0 
+ 79.5 
+ 71.0 

+ 2 . 

+ 76 . 1 
+ 70.2 

+ 79.7 
+ 68.2 

+ 76.2 
+ 1670.2 
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Figure 1. ODU Mobile Air Pollution Laboratory. 
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Figure 2. Block diagram of the hardware configuration of MONARCH 
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Figure 7 . CLKSER (clock service) routine 
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APPENDIX 


MONARCH Written in pal III 


BUFF«4000 

♦200 

ENTER# CLA CLL 
TLS 

CLA CLL 
DCA AC 
tIMS I PTYPX 
ENTMS3 
CLA CLL 
TAD CHAN 

DCA 1NDXR3<«>2 ' 

CLL 

• JMS 1 7 

FGET INDXR3 
FPUT R16 

ZERIST# FGET ZEROOO 

FPUT I R16 , 

FISZ R20 /ALL DONE? ' 

FJMP ZERIST /NO 

FGET INDXR3 /SET UP R16. 

FPUT R16 

FEXT • • 

CLA CLL 

TLS ' 

JMS I PTYPX 
ENTMSl 
CLA CLL 
JMS I PTYPX 
ENTMS2 

HLT /STOP BEFORE ROTATE CHECK PAPER TAPE 
CAF 
ION 

JMP I PROTAT 
ENTMS3# 3700 /CR-LF§ 

ENTMS2# 2710 /WH 
0516 /EN 
4011 / 1 
4023 / S 
2417 /TO 
2040 /P 
2425 /TU 
2216 /RN 
40117 / 0 
1640 /N 
2025 /PU 
1603 /NC 
1040 /H 

! 0116 /AN 

0440 /D 
1011 /HI 
2440 /T 

■ A-1 








0317 /CO 
1624 /NT 
1116 /IN 
8505 /UE 
3700 /-• 

ENTMSl# 3737 I /►- 

0314 >CL 
1703 /OC 
1340 /K 
0301 /CA 
* 1640 /N 


0205 

/BE 

4022 

/ R 

0523 

/BS 

0524 

/ET 

4017 

/ 0 

1614 

/NL 

3 1 40 

/Y 

0124 

/AT 

' 3737 

/t*- 

. 4060 

/i 0 

6060 

/do 

4004 

/! D 

. 0131 

/Ay 

8337 

/d*- 

6160 

/io 

1022 

/m 

3760 

/hO 

‘6015 

/OM 

1116 

/IN 

3760 

/••O 


6023 /OS ■ 
0503 /EC 
3700 /•• 

♦ no 

PENTER/ ENTER 
PROTAT/ ROTATE 

♦ 2200 

TTYSER# KCF 

CLA CLL 
TLS 

JMS 1 PTYPX 

TTYMEl 

OAF 

JMP I PEXIT 
TTYMEl# 1305 /KE 

0520 /EP - 
4031 / Y 
1725 /QU 
8240 /R 
1001 /HA 
1604 /ND 
2340 /S 
1706 /OF 
0640 /F 
8410 /TH 
0540 /E 
2424 /TT 
. 3140 /y 
3700 /-i 


OEIGINAI! PAGBIB. 
OF Pl)OE QtlAIira 


A-2 


1 


I 


i 


( 


( 


*400 

0TA0UT« CLA CLL 
TLS 

iJMS I PTYPX /*2LF/CR 

OPMSl 

CLA CLL 

lAC /PUT >0 IN AC 

DC A 56 / TAKE OUT OF B FORMAT 

TAD FORONE / F7.0 

DC A 57 

TAD DECONE 

DCA 60 

DCA 55 /O LEFT IN AC/ PUT IN 55 SUPPRESS CR/LF 
JMS I 7 
FGET DAYS 
FOUT 

FGET HOURS 
FOUT 

FGET MINS 
FOUT 

FGET SECS . ^ ‘ 

FOUT 
FEXT 
CLA CLL 
TAD CVS 
SZA /-O? 

JMP NOl /NO 
lAC /YES 
lAC /2 IN AC 
JMP VALOUT 

NOT/ CLA CLL / IS IT 27 

CLA CLL CMA RAL / -GIN AC 
TAD CVS 

SZA /IS CVS»27 
JMP N02 /NO 
CLA CLL /YES 

CLA CLl I AC RTL / PUT 4 JN AC 
JMP VALOUT 

N02/ CLA CLL < < 

CLA CLL I AC RTL 
CIA 

• ,TAD CVS 

SZA /IS»47 
JMP NOG /NO -S STATS 
CLA CLL /YES 
TAD CVS 
ZAC 

JMP VALOUT 
NOG/ CLA CLL 

JMP VALOUT 

VALOUT/ DCA 44 /ENTER WITH VALVE STATE IN AC 
JMS I 7 . 

A-3 


oeiginai;pag^ 
OF POOR piUAUrY' 


I 


. PLOT 

POUT /OUT PUT LEVEL IN OCTAL VALVE CODE 
PEXT 
OLA CLL 
iJMP I POUTDT 
PORONE# 0007 
DECONE#0000 

♦ 76 

POUTDT# OUTDT 

♦ 3000 

OUTDT# CLA CLL 
TLS 

JMS 1 PTYPX 
0PMS2 / ICB-^LF 
CLA CLL 
TAD KORTWO 

DCA 57 ' . • 

TAD DECTVO 
DCA 60 / F8. I 

TAD LSN 
DCA 44 

•JMS I 7 /# OF SAMPLES PER LEVEL PER XNSTR. 

PLOT 

FPUT FPLSN 
FGET INDXRl 
FPUT R16 

OPLOPl# FGET I R16 
FDIV FPLSN 
FOUT 

FIS2 R20 /DONE 1ST HALF? 

FJMP OPLOPl /NO 
FEXT /YES ' 

CLA CLL 
JMP 1 PTYPX 
0PMS2 

. CLA CLL ' •• 

JMS I 7 
FGET INDXR2 
FPUT R16 

0PL0P2# FGET I R16 
FDIV FPLSN 
FOUT 

FISZ R20 

FJMP 0PL0P2 /NO 

FEXT /YES ; LAST HALF DONE 

CLA CLL 

JMP I PTYPX • 

0PMS2 

JMP I PTYPX 
OPMSl 
CLA CLL 
JMS I 7 
FGET INDXR3 
FPUT R16 

ZERLOP# FGET ZEROOO 


A- 4 


|fPUT I B16 

FISZ RSO /DONE ALL XNSTR7 
FJMP Z ERL OP /NO 
FEXT * 

CL A CLL • , 

OMP I PEXIT 


OPMSl# 

3737 /2CR-LF ' 
0000 /%% 

1 

0PMS2# 

3700 /CR-LF® 


FORTWO# 

0010 


DECTWO# 

0001/ F8.1 FORMAT ' 


FPLSN# 

o;o;o 


INDXRl# 

BUFF-3; o; -7 

/ 

XNDXR2# 

BUFF+22;0;-7 



*16 


R16#0 



R17#0 

•• 


R20#0 

♦30 


XNDXR3# 

BUFF-3; BUFF-3; -16 


PAUSE 


% 



.CSIF=6I45 

SDTAC-61A6 

*600 

SCNSER# CLA CLL ^ 

CSIF /CLEAR SCANNER INTERRUPT FLAQ 

CLA CLL 

SDTAC 

DCA T EM DAT 
TAD T EM DAT 

AND MASLSD /CK TO SEE IF <0»MASLSD=000l 

SZA /SKIP IF AC=0 ONLY 
JMP UP 

CLA CLL /YES NUM<0 

TAD TEMDAT 

JMS I PBCDBN , 

• CIA /CONVERT AND NEGATE 

DCA TEMDAT 
JMP DATA IN 

UP# ' CLA CLL /NO IT IS >0 
TAD TEMDAT 
JMS X PBCDBN . 


} 


DC A TEMDAT 
JMP DATA IN 

TEMDAT# 0 
MASLSD#0001 
DATAIN# CLA CIL 

TAD TEMDAT 
DCA 44 
JMS 1 7 
FLOT 

FMPy NCSLOP / slope IS ONE TO ONE FOR NUMBER SCALE 

FADD NCZERO /INTERCEPT IS ♦998(USED 1000 TEMP) 

FADD I R16 
FPUT 1 R17 

FISE RSO /FINISHED ALL# INST7 

FJMP NOTYET 

FGET 1NDXR3 /YES RESET INDEX REG* 

FPUT R16 

PiryT 

JMP SNDCHN 
NOTYET# FEXT 

JMP SNDCHN 

NCSLOP# 0001; 2000; oooo 
NCZERO# 0012#* 3720; 0000 
SNDCHN# CLA CLL 

ISZ CHAN /IS CHAN -0? 

JMP EXl /NO ' 

TAD NI /YES# SO RESET CHAN 
CIA /NEGATE 
DCA CHAN 

ISZ NSL /IS NSL»07 

JMP EXl /NO ' ■ 

CLA CLL /YES# RESET NSL 

TAD LSN - 

CIA 

DCA NSL 

. NOP /WAIT FOR LAST CLOCK INTERUPT 
JMP I PEXIT 
EXl# CLA CLL 

TAD CHAN 
CIA 

CNTSN / SEND TO SCANNER 
JMP I PEXIT 

EXIT# CLA CLL * ' 

CAF 

TAD FLAGS • , • 

RTF 
CLA 
TAD AC 
JMP I 0 

ERROR# CLA CLL 

- ■ . A -6 : • ■ 



DRIGINAC page is 

lOP POOP QUALITY 




f 


CAF /CLEAR ALL FLAGS 
TLS 

JMP 1 PTYPX 
EKRMEl 
CLA CLL 
CAF 

JMP I PEXIT 
ERRMElV 0522 /ER 


2217 

/RO 

2240 

/R 

1116 

/IN 

4023 

/ s 

1311 

/ KI 

2040 

/P 

0310 

/CH 

0111 

/AI 

1640 

/N 

3700 

/-• 

*115 



PEXIT# EXIT 
P ERROR# ERROR 
PAUSE 


t . ■ ■ 

SICFS=6137 J 

SISFS=61A7 
CNTSN=6141 
CCIF=6135 

RCW1=6131 • ' 

RCW2=6132 

RCW3=6133 

«1000 

SERVE# DC A AC 
GTF 

DC A FLAGS 

CLL /SKIP CHAIN 

SICFS i/SKIP IF CLOCK FLAG SET 

SKP 

JMP CLKSER 

SiSFS / SKIP IF SCANNER FLAG SET 
SKP 

JMP I PSCNSR 

KSF /KEYBOARD SET FLAG? 

SKP . 

JMP I PTTYSR 
JMP I PERROR 
CAF 

JMP I PEXIT / SHOULD NEVER GET HERE 
CLKKSER# CLA CLL 

A-7 


page is 
«« iouii ,QaALar 



CCIF /CLEAR CLOCK INTERRUPT FLAG 
ISZ CIC /IS CIC-0? 

SKP /NO 

JMP CLKRED /YES 
CLA CLL 

lAC /PUT 1 IN AC 
TAD CIC 
‘ SMA 

JMP NOVOFF 
RENTER* Ola CLL 

JMS I 7 t 

FCET INDXR3 

FPUT R16 

FEXT 

CLA CLL 

/ THIS RESETS INDEX FOR ADDING TO THE DATA FILES 
TAD NI 

cia 

DCA CHAN 
TAD CHAN 
CIA 

CNTSN /START CONVERSION ON 1ST INST 
CLA CLL 
JWP I PEXIT 

NOVOFF* Ola cll 
TAD CVS 

SACTV / SEND TO VALVES 
JMP RENTER 
CLKRED* CLA CLL 

CCIF * /CLEAR CK INTR. FLOG 
RCVl /READ 1ST CLK WORD 
DCA FSTWRD 

RCV2 /READ 2ND VORD 

. DCA • SNDWRD 
RCW3 

DCA THRWRD 
TAD MINS5 
CIA / NEGATE 

DCA CIC / RESET THE CIC COUNTER 

JMP CLKPRO 

Rstwrd*o „ 

SNDWRD* 0 
THRWRD* 0 

CLKPRO* CLA CLL 

TAD FSTWRD 

JMS MSKl /SAME PAGE 
DCA UNSSEC 
TAD FSTWRD 

JMS MSK2 /SAME PAGE 
DCA TNSSEC 
TAD FSTWRD 

JMS MSK3 /SAME PAGE 



DC A UNSMIN 

• CLL 

TAD SNDWRD /2ND VRD PROCESSOR 

JMS MSKl 
DCA TNSMIN 
/ TAD SNDWRD 
JMS MSK2 
DCA UNSHRS 
TAD SNDWRD ‘ 

JMS MSKji • s, 

DCA TNSHRS ' 

CLL 

TAD THRWRD /3RD WORD 
JMS MSKl 
DCA UNSDYS 
TAD THRWRD 

JMS MSK2 , . ’ . 

DCA TNSpYS 
TAD THRWRD 
JMS MSK3 
DCA HNDDYS 
CLL 

^JMP I PDTMSR 

MSKUO 

. AND MASRTl 
CLL 
RTR 
RTR 
RTR 

RTR ~ 

JMS I PBCDBN 
JMP i MSKl 

MSK2#0 

AND MASKT2 

• CLL 
RTR 

RTR ‘ ' 

JMS I PBCDBN 
JMP 1 MSK2 

MSK3/0 

AND MASKT3 ' 

CLL 

: JMS I PBCDBN 

JMP I MSK3 
MASKTl*7A00 
MASKT2>0350 
MASKT3/0017 

♦ 72 ' 


cys/0 

Aci>0 

I 


♦ 70 

♦ 101 


'PBCDBN/BCDBIN 


♦ 1^0 




UNSSEC/0 

TNSSEC/O 


A-9 



UNSMIN#0 

TNSMIN#0 

UNSim$«0 

TNSHHS#0 

UNSDYSfO 

TNSDYS/0 

HNDDYS>0 

♦ 102 

PSCNSR/SCNSER 
PTTYSR/TTYSER 
PDTMSR/DTMSTR 
PVALVR#VALVER 
♦ J 

JMP I PSERVE 
♦5 

PSERVE# SERVE 
. PAUSE 


*1200 

DTMSTR# CLA QLL 

TAD UNSSEC 
DC A 44 
JMS I 7 
FLot 

FPUT SECS 
FEXT 
CLA CLL 
TAD TNSSEC 
DC A 44 
JMS I 7 
FLOT 

• • FMPY rtEN 

FADD SECS 
FPUT SECS 
, FEXT 

CLA CLL 
TAD UNSMIN 
DCA 44 
JMS I 7 
FLOT 

FPUT MINS 
FEXT 
CLA CLL 
TAD TNSMIN 
DCA 44 
JMS I 7 
FLOT 

FMPY TEN 
FADD MINS 
FPUT MINS 
FEXT 
CLA CLL 
TAD UNSHRS 
DCA 44 



JMS 1 7 
FLOT 

FPUT HOURS . 
FEXT 
CLA CLL 
TAD UNSDYS 
DC A 4 A 
JMS I 7 
FLOT 

FMPY TEN 
FADD HOURS 
FPUT HOURS 
FEXT 
CLA CLL 
TAD UNSDYS 
DCA 44 
' JMS I 7 
FLOT 

FPUT DAYS 
FEXT 
CLA CLL 
TAD TNSDYS 
DCA 44 
JMS I 7 
FLOT 

• FMPY TEN 
FADD DAYS 
FPUT DAYS 
FEXT 
CLA CLL 
JMP I PYEARS 
TEN/ 4i 2400; 0 
BCDBIN/ 0 

DCA TEMPH 
TAD TEMPH 
AND LDIGIT 
CLL RTR 
DCA CUNT 
TAD CUNT 
RAR 

TAD CUNT 
CMA I AC 
TAD TEMPH 
DCA TEMPH 
TAD TEMPH 
AND MDIGIT 
CLL RTR 
DCA CUNT 
TAD CUNT 
RAR 

TAD CUNT 
CMA lAG 
TAD TEMPH 



JMP I BCDOIN 
L.DIG1T» 7/100 
MDIGIT# 7760 
CUNT# 0 . 

TEMPH# 0 

♦76 

P YEARS# YEARS 
/ ♦3200 

YEARS#' CLA CLL 

TAD HNDDYS 
DCA AA 
JMS t 7 
PLOT. 

FMPY HON I 00 
FADD DAYS 
FPUT DAYS 
FEXT 
CLA CLL 
JMP I PVALVR 
HUNIOO# 7; 3100i 0 
♦ 123 

SECS#o;o;o 

MiNS#o;o;o 

HOURS#o;o;o 

fDAYS#o;0;o 

PAUSE 


♦ 120 

ZEROOO# 0 ;0 10 
♦2A00 

ZERO# ' CLA CLL 

TAD NCLUT ' 

CIA 

DCA TULCN 
JMP I PNOVAL 

/ THIS ROUTINE WILL BE WRITTEN LATER(MAY 23#197A) 

/ CURRENT SYSTEM WILL NOT ZERO BUT ONLY A SMA1,L CHANGE IS 
/ NEEDED. 

♦ 112 . 

PNOVAL# NOVAL 
♦7? 

FLAGS# 0 

A 12 


PAUSE 


SACTV-6151 

4<l/lOO 

VALVER. 


VLNZi 


CL A CLL 

ISZ VL /IS VL-0? 
tlMP VLNZ /NO 


TAD NLV 
CIA 

DCA VL /RESET VL 
■CLA CLL 
lAC 
RTL 
lAC 

DCA CVS 
TAD CVS 
SACTV /PUT 
ISZ TULCN 
UMP NOVAL 
JMP I PZERO 
CLA CLL 
lAC 
lAC 

TAD VL 
SPA 

JMP SEVFIV 


/YES/NLV-+A-# LEVELS 


/ CURRENT VALVE STATE<A,B/C) 
lOi ON AC# SEND TO VALVES 
/READY TO ZERO? 

/ no; NCLUT=# CYCLES UP TOWER 
/YES 

/VL— 1.-2#-3 


/PUT +2 IN AC# TAD VL# RES +#0#- 


/VL— 3#75 FOOT 


SEVFIV# 


TWFIV# 


SZA 

JMP TWFIV /VL— 1#25 FEET i 

CLA, CLL ' 

lAC 
I AC’ 

DCA CVS 
TAD CVS 

SACTV /SET 010 IN AC# SEND TO VALVES# 50 FEET 


JMP NOVAL ‘ 

CLA CLL 
lAC 

RTL / 100 IN AC 
DCA CVS 
TAD CVS 

SACTV /75 FEET 
JMP NOVAL • 

CLA CLL 
DCA CVS 


ORIGINAL PAGE IS 
OP POOR jdUALny 


TAD CVS 

SACTV /OOO IN AC # SEND TO VALVES# 25 FEET 
JMP NOVAL 
NOVAL# CLA CLL 

lAC /NO VALVE TURN ON 
RTL 

RAL / MAKE 1000 IN AC 
TAD CVS / ADD CURRENT VALVE STATE 
. SACTV 
CLA CLL 


JMP 1 PDATOT 

ROTATE# CLA CLL CML 
NOP 

BEGIN# DC A SAVEAC 
HAL 

DCA SAVEL 
TAD MASK 
OSR 

DCA COUNT . 

OSR 

RAL 

SZL CLA 
JMS LEFT 
JMS RIGHT 
CLL 

60# TAD SAVEL 
RAR 

TAD SAVEAC 
INSTR# RAR 

ISZ COUNTR 
JMP .-I 
ISZ COUNT . 

JMP .-3 
JMP BEGIN 

SAVEAC# 0 
SAVEL# 0 
MASrC fOOO 
COUSfil^O ■ 

COUNT# 0 
L£FT#0 

ISZ LEFT 
TAD KRAL 
DCA INSTR 
JMP I LEFT 

RIGHT# 0 

TAD KRAR 
DCA INSTR 
JMP I RIGHT 
KRAR# 7010 
KRAL# 700A 

♦73 

NCLUT#0 
TULCN# 0 

♦ 106 

PZER0#ZER0 

♦ 107 

PDATOT# DTAOUT 
PAUSE 






START# 


I 


*1600 
lOF 

KCC /CLEAR KEYBOARD FLAG 
CLA CLL 
TLS 

JMS I PTYPX 
MESQOl 

JMS 1 PTYPX. 

MESGOa 
JMS INPT 
CLA CLL 
TAD 150 
DC A NI 
TAD NI 
CIA 

DCA CHAN / SET CHAN—NI 
CLA CLL . , 

JMS I PTYPX 
MESG03 
JMS INPT 
CLA CLL 
TAD 150 

DCA NLV / SET UP NLV(#0F LEVELS) 

TAD NLV 
CIA 

DCA VL /SET UP VL— NLV 

CLA CLL • 

JMS I PTYPX 
MESGOA 
JMS INPT 
CLA CLL 
TAD 150 

DCA MINS5 / SET UP TIME / LEVEL<MINS«5 TYPICAL) 

TAD MINS5 

CIA 

DCA CIC ■ / SET UP CIC 
CLL 

JMS I PTYPX 
MESG05 
JMS INPT 
CLA CLL 
TAD 150 
DCA LSN 
TAD LSN 
CIA 

DCA NSL /SET NSL 
CLA CLL 
JMS I PTYPX 
ZERCYM ■ 

JMS INPT 
CLA CLL 
TAD 150 




A- 15 


t 


I 


» 

DCA NCLUT 
TAD NCLUT 
CIA 

DCA TULCN . I 

CLL 

JMP PRESTR 

1NPT« 0 /THIS PAGE INPUT OF NUMERICAL CONSTANTS 
CLA CLL 
JMS I 7 
FIN 
FFIX 
FPUT 150 
FEXT 
CLA CLL 
JMP I INPT 
MESG0l#3737 


4040 
4040 
1140 /I 
V 0115 /AM 
4015 / M 
1716 /ON 
0128 /AR ' 
0310 /CH 
3700 /-i 

MES602* 1116 /IN 
8035 /PU 
2440 /V 
2410 /TH 
0540 /E 
1625 /NU 
1502 /MB 
0522 /EH 
4017 / 0 
0640 /F 
0401 /DA 
2401 /TA 
4020 / P 
1722 /OR 
2423 /TS 
3700 /-9 

MES603# 1116 /IN* 
2025 /PU 
2440 /T 
2410 /TH 
0540 /E 
1685 /NU 
1502 /MB 
0522 /EH 
4017 / 0 
0640 /F 


ORIGINAL PAGE IS 
OP POOR (lUALEnff 
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PRESTR# 


I 


ZERCYM« 


14105 /LE 
8605 /VE 
14S3 /LS 
3700 /-• 

CLA CLL 
lAC 
RTL 
I AC 

DCA CVS 
TAD CVS 

/SET UP I 


TAD CVS 
SACTV 
CLA CLL 
JMP I RENTER 
*2700 
1116 /IN 


2025 

/PU 

2AA0 

/T 

2410 

/TH 

0540 

/E 

1625 

/NU 

1.502 

/NB 

0522 

/ER 

4017 

/ 0 

0640 

/F 

2411 

/TI 

1505 

/ME 

2340 

/S 

2520 

/UP 

4024 

/ T 

1727 

/OW 

0524 

/ER 

^ 3702 

/-B 

0524 

/ET 

2705 

/WE 

0516 

/EN 

4032 

/ Z 

0522 

/ER 

1740 

/O 

0331 

/CT 

0314 

/CL 

0523 

/ES 

3700 

/-• 


PAUSE 


SACTV 

CLA 

lAC 

RTL 

RAL 


5 LEVEL 



*2000 


TYPX# 

0 



CLA 

CLL 


TAD 

I TVPX 


DC A 

typmt 


• isz 

TYPX 

TXPXU 

TAD i 

TYPNT 

RTR 



RTR 



RTR 



JMS 

TYPY 


TAD 

I TYPNT 


ISZ 

TYPNT 


JMS 

TYPY 


JMP 

TYPXl 

TYPNT# 

0 


TYPY# 

0 



' AND 

TK77 


SNA 



JNP 

I TYPX 


TAD 

TKM37 


SZA 



JMP 

TYPYl 


TAD 

TK2 1 5 


JMS 

TLSX 

TYPYl# 

TAD 

TKM125 

SPA 



TAD 

TKIOO 

*1 

TAD 

TK237 

JMS 

TLSX 


JMP 

I TYPY 

TK77, 

77 


TKM37> 

-37 


TK215# 

215 


TKM125 

> -125 

TKIOO/ 

100 


TK237> 

237 


TLSX# 

0 



TSF 



Jmp 

.-1 


TLS 



CLA 



JMP 

I TLSX ’ 

KRBX# 

0 



KSF 



JMP 

.-1 


KRB 



JMP 

I KRBX 

KREAD# 




CLA 

CLL 


Tad 

I KREAD 


isz 

KREAD 

i 

DCA 

KRPNT 


TAD 

I KREAD 

- 

DCA 

KRCNT 

KRB1« 

JMS 

KRBX 


DCA 

I KRPNT 


TAD 

KRTAB 


KRB3« 

KRBS« 

KRB6« 

KRUB/ 

f 

- KRUBU 
KRCR/ 

KRBKS# 


DC A 

KRBKS 

TAD 

I KRHNT 

IS23 

KRBKS 

SNA 

CLA 

JMP 

I KRBKS 

1S2 

KRBKS 

TAD 

1 KRBKS 

SZA 

• 

JMP 

KRB3 

JMS 

KRBKS 

ISZ 

KRCNT 

JMP 

KRB6 

TAD 

TK207 

JMS 

TLSX 

CLA 

CMA 

TAD 

KRCNT 

JMP 

KRBl-1 

TAD : 

I HRPNT 

ISZ 

KRPNT 

JMS 

TLSX 

JMP 

KRBl 

CLA CMA 

JMS 

KRBKS 

ISZ 

KSFLAG 

TAD 

I KREAD 

CIA 


TAD 

KRCNT- 

SNA 

CLA 

JMP 

KRUBl 

CLA 

CMA 

TAD 

KRPNT 

DCA 

KRPNT 

TAD 

I KRPNT 

JMP 

KRB5 

TAD 

TK237 

JMS 

TYPY 

JMS 

KRBKS 

‘ JMP 

KRBi 

JMS 

KRBKS 

TAD 

TK237 

JMS 

TYPY 

DCA 

I KRPNT 

ISZ 

KREAD 

JMP 

I KREAD 

6 

TAD 

KRFLAG 

SZA 

CLA 

TAD 

TK334 

SZA 

JMS 

TLSX 




DCA KKFLAQ 
JMP I KHDKS 
KRFLAG# 0 
KRPNTbTYPNT 
KRCNTbTYPX 
TK207, 207 
TK33A,33A 
KRTAB> . 

JliP KRBl 
- 200 ; 

JMP KRBl 
- 212 ; 

JMP KRBl 
-215; 

JMP KRCR 
-377; 

JMP KRUB 
0 

PAUSE 


*2600 

MES604# 1116 /IN 
2025 /PU 
2440 /T 

2410 /TH 
0540 /E 

2411 /TI 
1505 /ME 
5015 /(M 
1116 /IN 
5140 /) 

. 2320 /SP 
0516 /EN 
2440 /T 
2005 /PE 
2240 /R 
1405 /LE 
2605 /VE 
1440 /L 
■ 3700 /-© 

MESGOS^ 1116 /IN ' 
2025 /PU 
2440 /T 
1625 /NU 
1 502 /MB 
0522 /ER 
4017 / 0 
0640 /F 
23>01 /SA . 
1520 /MP 
1405 /LE 
2340 /S 
2401 /TA 
1305 /KE 


1637 /N- 
0231 /BY 
40 05 / E 
0103 /AC 
1040 /H 
1 1 16 /IN 
23214 /ST 
2225 /RU 
1505 /ME 
1624 /NT 
4020 / P 
0522 /ER 
4014 / L 
0526 /EV 
0514 /EL 
3700 /-® 


♦ 100 

PTYPX/TYPX 

♦ 140 

NI«0 
CHAN#0 
NLV#0 
VL>0 
MIlNS5>0 
Ci:C/0 
LSN«0 
- NSL>0 
PAUSE 


FIXMRI FJMP«0000 
FIXMRX FJMS-7000 
FISZ=0000 
FEXT=0000 
I FSQU=000l 
’FSQR=0Q02‘ 
FSIN=0003 
FCOS=0004 
• FATN=0005 
FEXP=0006 • 

'flog =000 7 

FNEG=0010 
FIN =001 1 
F0UT=0012 
FFIX=0013 
FLOT=0014 
FN0R=7G00 
FGDF=700l 
FSW0=7002 
FSW 1=7003 
FHLT=7004 
FSMA=7110 
FSZA=7050 
FSPA=7100 
FSNA=7040 
FN0P=7010 
FSKP=7020 
PAUSE 



